home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9212b.d64 / hardcopy no.1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  394b  |  21 lines
  1. 60000 A$=CHR$(16):B$=CHR$(15):C$=CHR$(18):D$=CHR$(146)
  2. 60001 E=PEEK(648)*256:F=0
  3. 60002 IF(PEEK(53272)AND6)=6THENF=7
  4. 60003 OPEN4,4,F:PRINT#4
  5. 60004 FORG=0TO24:H=0:I$=""
  6. 60005 FORJ=0TO39
  7. 60006 K=PEEK(E+40*G+J)
  8. 60007 IFK=34THENH=1-H
  9. 60008 IFK=162THENH=1-H:K=64
  10. 60009 IFH=1ANDK>=128THENK=K-128
  11. 60010 IFK>=128THENK=K-128:M=1:I$=I$+C$
  12. 60011 IFK<32ORK>95THENI=K+64
  13. 60012 IFK>31ANDK<64THENI=K
  14. 60013 IFK>63ANDK<96THENI=K+32
  15. 60014 I$=I$+CHR$(I)
  16. 60015 IFM=1THENI$=I$+D$:M=0
  17. 60016 NEXTJ
  18. 60017 PRINT#4,B$A$"20"I$
  19. 60018 NEXTG:CLOSE4:RETURN
  20. 60019 END
  21.